;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	6/21/2006
;;;	   Edited:	12/8/2016
(defun princdebugstrs (dbpstrlst / )
  (IF (AND debug_princs (EQ (TYPE dbpstrlst) 'LIST));(NOT (MEMBER NIL (MAPCAR '(LAMBDA (x) (EQ (TYPE x) 'STR)) dbpstrlst))))
    (PROGN
      (PRINC (STRCAT "\n" (IF debug_pads debug_pads "\t")))
      (FOREACH s dbpstrlst
        (IF (EQ (TYPE s) 'STR)
          (IF (WCMATCH s "\n*")
            (PRINC (STRCAT "\n" (IF debug_pads debug_pads "\t") (IF princprfx princprfx "") (SUBSTR s 2)))
            (PRINC (STRCAT (IF princprfx princprfx "") s))
          )
          (PRINC s)
        )
        (PRINC)
      )
    )
  )
  (PRINC)
)
